home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
cpp_libs
/
rwvector.lha
/
RWVector2.1
/
rw
/
linpack.h
< prev
next >
Wrap
C/C++ Source or Header
|
1989-08-18
|
2KB
|
66 lines
#ifndef LINPACK_H
#define LINPACK_H
#pragma once
/*
* LINPACK declarations --- to be expanded considerably
*
* Copyright (C) 1988, 1989.
*
* Dr. Thomas Keffer
* Rogue Wave Associates
* P.O. Box 85341
* Seattle WA 98145-1341
*
* Permission to use, copy, modify, and distribute this
* software and its documentation for any purpose and
* without fee is hereby granted, provided that the
* above copyright notice appear in all copies and that
* both that copyright notice and this permission notice
* appear in supporting documentation.
*
* This software is provided "as is" without any
* expressed or implied warranty.
*
*
* @(#)linpack.h 2.1 8/18/89
*/
/******************* Double Precision *************************/
extern Fortdecl void
dgefa_(double*, const fortran_int*,
const fortran_int*, fortran_int*, fortran_int*);
extern Fortdecl void
dgesl_(const double*, const fortran_int*,
const fortran_int*, const fortran_int*, double*, const fortran_int*);
extern Fortdecl void
dgedi_(double*, const fortran_int*,
const fortran_int*, const fortran_int*, double*, double*, const fortran_int*);
#define Dgefa_ dgefa_
#define Dgesl_ dgesl_
#define Dgedi_ dgedi_
/******************* Single Precision *************************/
extern Fortdecl void
sgefa_(float*, const fortran_int*,
const fortran_int*, fortran_int*, fortran_int*);
extern Fortdecl void
sgesl_(const float*, const fortran_int*,
const fortran_int*, const fortran_int*, float*, const fortran_int*);
extern Fortdecl void
sgedi_(float*, const fortran_int*,
const fortran_int*, const fortran_int*, float*, float*, const fortran_int*);
#define Fgefa_ sgefa_
#define Fgesl_ sgesl_
#define Fgedi_ sgedi_
#endif LINPACK_H